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The purpose of this memorandum is to illustrate a method 
for evaluating a recursive function when the same subexpression 
may occur many times during the evaluation and should be evaluated 
only once. An extreme example of this is the linear recursion 

C n = ( n =O»a0' n=l-» 1# T -** c n -l + C n -2 } 

If these equations are translated directly into LISP the evaluation 
of C will take approximately 2 n ~^ steps. Thus 
C 5 = °(^4 + |3c 3 where 

c 4 = o(c 3 + fc 2 

and the two C 's are evaluated separately. Naturally, we can 
rewrite the recursion as 

C n = C(n / l f a ()# a ) 
where 

C(n,m,a,b) = (n=0^a, m=n->b; T-*C (n f m+l # b # <^b+jSa) ) 

However, I would like to consider a general method which 
works when we don't know which earlier values of the function will 
be required. Consider the problem of evaluating the number of 
partions of the number n, i.e. the number of ways n can be expressed 
as a sum. The partions of 5 are 5, 4+1, 3+2, 3+1+1, 2+2+1, 
2+1+1+1, and 1+1+1+1+1, or more compactly 5, 41, 32, 2 2 1, 21 3 , l 5 . 



The recursion is best accomplished by the aid of a function q mn 

which is the number of ways m can be expressed as a sum each sum- 

mand of which is no larger than n. Thus, q 55 =7, q 54 =6, ( 3 5 3 ==5 ' 

cr =3, q =1. We have the recursive relation 
4 52 ' M 51 



q mn - (m-lVn-l->l. ^n^^, + 1T-* W n+ \ #n ^ 



) 



Again, using this relation as a computation rule is ineffi- 
cient in that certain q's will be evaluated many times. Therefore, 
we shall write equations for a procedure that keeps track of all 
q's that it has so far evaluated and will not evaluate any q more 
than once. 



q = val£m;n; prob^m; n;Nl£]J 



J mn 



va. 



Ll{m;n;known] = [eq (caar [known] ;mj A eq (cadar [known] ;n| 
caddar [known] ; T -Vva l£m ; n ; cdr {known] J J 



prob^m;n;knownJ[ = [present|jn;n;known]-^ known;T-*> X[JvJ' 
cons\list jm7n;v3;known]jL[.ni=lVn=lVm=0-->l7 
min^l+val^m;n-l;prob|jn;n--l7kriowri] ; T — ^ 
XCI^rvalfm-nrnrTTl + val (m;n-l; fij] [probfm;n-l;prob|m»n?n;know^J]jj 
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present[m;n;known] = ^nulljknownj A []eq (caar jknownj ;mj /\ 
eq [ca da r [known] ;nJ]V present Jm;n;cdr jknownj J J 

In these functions known represents a table of the q's that 
have already been found in the form 

( (m, n, q^) / - • - ) 
present Cm;n;known] is true if the value of q^ is listed among 

known , 
valpnrnrknownj gives this value, 
pr ob Em 7 n ; knownj gives a new list which includes q mR and any other 

q's that arose in the course of evaluating q^- 

This process calculates exactly the q's that are needed. The 

major inefficiency of this as a LISP program comes from the linear 

scan used to determine whether q has previously been computed- An 

mn 

associative memory procedure with hash addresses would relieve this 
inefficiency. 

In the present case it is easy to calculate q in a systematic 
-^ mn 

way by the following ALGOLic procedure: 
for k from 1 to m 
begin 

for JL from 1 to n 
begin 

q(K f l) = if (k=0Vk=lW=l) then 1 e lse if k 4 L then l+q(k,j£-l) 
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otherwise q (k,i.-l) + q(k-£,l) 
end 
end 

It is not clear how many of the q's evaluated are unnecessary. 

Certainly some of them are. 

In the above algorithm one might be worried about the storage 
occupied by the table of values. In this case one might decide not 
to store the values of the q's that were very easily evaluated on 
the grounds that it would not take too long to evaluate them each 

time they turn up. 

Keeping track of what is known in this manner may have applica- 
tions in artificial intelligence also. 

Problem for the student : 

Write a general procedure that will transform any LISP recursive 
calculation into one that is guaranteed to evaluate the function no 
more than once for any argument. (10 points) 

Prove by recursion induction or otherwise that the new function 
is always equivalent to the old. (50 points) 
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